38888 


ASAAOAAAOAAAOOOO 
AOOOIOOAOAAOOOOAO 
AOAAAAOAOAOOAONY 


SSSSSSSsss 


AAA AA Ht St tH A 2— 
AAA St A ————— ————— 
AAAS AS a a st st se 


L 

LLLLLLLLLLLLLLL 
LLELLLLLLLLLELLLL 
LLLLLLLLLLLLLLL 


ad 


**F ILE**1D**COBCVTOP 

cccccccc 000000 BBBBBBBB cccccccc SCV VV TTTTTTITTT QQQ000 PPPPPPPP 
cccccccc 000000 BBBBBBBB cecccccce «CV VV oTTTTITTTITT QQQQ0Q PPPPPPPP 

cc 00 00 88 BB CC VV VV TT QQ QQ PP PP 

cc 00 00 68 BB CC VV VV TT QQ QQ PP PP 

cc 00 00 88 BB CC VV VV TT QQ QQ PP PP 

cc 00 00 88 cc VV VV TT QQ QQ PP PP 

cc 00 00 88888888 cc VV VV TT QQ QQ PPPPPPPP 

cc 00 00 8B cc VV VV TT QQ QQ PPPPPPPP 

cc 00 00 8B cc VV VV TT QQ QQ QQ PP 

cc 00 00 BB BB CC VV vv TT QQ QQ QQ PP 

cc 00 00 8B BB CC VV VV TT Q Q PP coee 

cc 00 00 688 BB CC VVV TT QQ QQ PP eeee 
cccccccc 000000 BBBBBBBB cccccccc VV TT QQQQ QQ PP cove 
cccccccce 000000 BBBBBBBB ccccccce VV TT QQQQ QQ PP eee 

LL IIIIII SSSSSSSS 

LL IIIT] SSSSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL 111111 SSSSSSSS 


— — — — — — — — — — — — — — — — — — 
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Table of gontents 

83 8 HISTOR ; Detailed Current Edit History 

(3) g DECLARATIONS 

(4) 9 COBSCVTQP_R9 
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1 o608 aaSep nbs Fosegsgs LeRGNTS tees ef TOS mans P89 I, 
1 TITLE COB RC YTOP RD COBOL Convert Quad to Packed 
¢ ~IDENT /1-008/ 3; File: COBCVTQP.MAR 
00 4; 
88 5 z*eererererrerererererererrrererereerrereeeerreeſeeraeeaeeeererreereeeererrererereererrereeae 
32* ® 
$808 ; 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0000 8 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 1 ‘* ALL RIGHTS RESERVED. * 
PY ® 
$609 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
8808 \¢ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE r NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1 3* TRANSFERRED. * 
3* we 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
344 0 :* CORPORATION. + 
3* ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR > tempi OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
0000 4 5* * 
0000 25 ;* * 
0000 6 ied ia iat ait inch it ial tale lai 
0000 2 r 
0000 8 ; a AGaL ity COBOL TYPE CONVERSION 
0000 > 3* 
0000 0; ABSTRACT: ; d 
0000 ie This module contains the routine which converts signed quadwords 
0000 $$ : to packed. 
0000 a> 3 
0000 3 3 
0000 5 3-- 
0000 36 ; 
0000 37 ; VERSION: 1 
0000 38 ; 
0000 39 ; HISTORY: 
0000 40 ; 
0000 41 ; AUTHOR: 
0000 $8 3 John Sauter, 29-DEC-78 
0000 43; 
8 44 ; MODIFIED BY: 
00 45 ; 
0000 46 ; 
0000 47 ; 
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COBSCVTQP_R9 COBOL Convert Quad to Packed 15-SEP-1984 23:40: AX/VMS Macro v04-00 P 
836 HISTORY ; Detailed Current Edit History —— 93:29:48 COBRTL.SRCICOBCVTQP.MAR; 1 — (3) 
23 -SBTTL HISTORY ; Detailed Current Edit History 
1 
¢ : Edit History for Version 1 of COBCVTOQP 
6 0 4 : 1-001 = Original from Marty Jack 
5; 1- 8 - Use byte displacement lengths. JBS 29-DEC-78 
g88 : 1-003 = Make entry porns symbol 3 obal. JBS Bs- Jano 1979 
O06 : 1-004 = Minor editing cleanup. JBS 11-JAN-1979 
000 8 ; 1-005 - Bug f fixes and cleanup. MLJ } “nar =1979 
0000 59 ; 1-098 - 20 temps. MLJ 13-Mar-1979 
8808 60 ; 1-98 = Cosmetic changes. RKR 18-0CT-79 
000 61 ; 1-008 - Add comments to header. 05-NOV-79 
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ett DECLARATIONS —— 93:29:42 LCOBRTL. SREICOBCUTOP.MAR: 1 . 3) 

3 6 -SBTTL DECLARATIONS 

65 ; 
° 26 ; INCLUDE FILES: 
00068 
$00 4 3 
B86 0 ; EXTERNAL SYMBOLS: 
00 71 ; NONE 
0000 3 
0000 t 
$60 75 ; MACROS: 
0000 fe 3 NONE 
0000 77: 
0000 78 
0000 79 ; 
0000 80 ; PSECT DECLARATIONS: 

00000000 81 -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 Hf 
0000 83 ; 
0000 84 ; EQUATED SYMBOLS: 
0000 85 ; NONE 
0000 86 ; 
0000 87 
0000 88 ; 
0000 89 ; OWN STORAGE: 
0000 90 ; 
0000 91 3+ 
0000 4 3; The cee ceuine conetens has the value 2**32. It is used for scaling 
88 * ; the high 32 bits and for compensating for unsigned arithmetic. 
6C 29 67 49 29 04 0000 95 BIAS: .PACKED 4294967296 : 2*432 
00000004 88 38 BIAS_DIGITS=10 
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COBSCVTQP_R9 COBOL Convert Quad to Packed 15-SEP-1984 23:40:45 VAX/VMS Macro v04-00 Page 4 
1-008 COBSCVTQP_R9 —— $3529: $8 COBRTL.SRCJCOBCVTQP.MAR; 1 . (4). 
006 99 -SBTTL COBSCVTQP_R9 
006 139 * 
8 101* 
g88 ; FUNCTIONAL DESCRIPTION: 
0006 8 Converts a 64-bit (quadword) integer to packed. 
Obe 196 ; CALLING SEQUENCE: 
0006 198 3 JSB COBSCVTQP_RO (scale.rl.v, src.rq.r, dstlen.rl.v, dst.wp.r) 
8808 119 $ Arguments are passed in R6, R7, R8 and RI. 
0006 16 3; INPUT PARAMETERS: 
0006 113; 
0006 114; SCALE.rl.v The power of ten by which the internal 
0006 115; vopreosotar ren of the source must be 
0006 116; multiplied to scale the same as the 
0006 117; internal representation of the dest. 
0006 118 ; SRC.raq.r The number to be converted 
9 13 ; DSTLEN.rl.v The number of digits in the destination 
88 131 ; IMPLICIT INPUTS: 
8 ALL of the trap bits in the PSL are assumed off. 
0006 125 ; OUTPUT PARAMETERS: 
0006 126; 
sit + 3 DST.wp.r The place to store the converted number 
0006 129 ; IMPLICIT OUTPUTS: 
0006 130; 
0006 131; NONE 
0006 136 3 
0006 3 3; FUNCTION VALUE 
0006 134; 
0006 135; 1 = SUCCESS, 0 = FAILURE 
0006 136 3 
0006 137 ; 
0006 138 ; COMPLETION CODES: 
0006 139; 
0006 140 ; NONE 
0006 141 ; 
006 166 3; SIDE EFFECTS: 
006 143; . 
0006 144 ; Destroys registers RO through R9. 
006 145; 
006 196 i-- 
0006 14 
88 8 COBSCVTQP_R9:: 
SE 14 C2 0006 14 SOBL2 313 : Allocate temp space 
04 A7 67 OF 1F EC 0009 150 CMPV #3181, (R7) ,4(R7) ; Is number in longword renget 
13 is OOF 151 BNEQ 11$ ; Br if not to do slower code 
6— OA 9 F 011 13 CVTLP) =: (R7) , #10, (SP) ; Convert low order longword 
69 58 00 6€ OA 6 F8 Q015 15 ASHP R6,#10,(SP),#0,R8,(R9) > Scale to destination 
M 154 : (also clears RO) 
02. 10 1c) =—s-«(1155 BvVS 10$ ; Br if overflowed 
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OBSCVTQP_R9 COBOL Convert Quad to Packed at Let $3:49:43 AX/VMS Macro v04-00 
COBSCVTQP_R9 6-SEP-1984 10:45:35 CCOBRTL.SRCICOBCVTOP.MAR; 1 
50 OD 1 138 INCL 9 3; Indicate success, RO = 1 
. Be & Ht 10$ ADDL2 #20,SP ; Deallocate temp space 
0 8Sz 138 RSB 3; Return 
024 160 ; Come here if the input number is not in longword_range. Sum the 
024 161 ; converted high order longword, multiplied by 2**32, and the converted 
8 ri 166 ; low order longword, considered as an unsigned number. 
6E OA 04 A7 F9 0026 164 118:  CVTLP 4(R7),#10,(SP) ; Convert high order longword 
6— OA 03 Mos 25 88 9 165 MULP #BIAS_DIGITS BIAS .#10, (SP) #19, 8(SP) 
8° ; 166 3 Multiply by 2**32 
6 OA 67 F9 OO 16 CVTLP) = (R7) ,#10, (SP) ; Convert low order longword 
06 18 0036 168 BGEQ ; Br if nonnegative 
6E OA C4 AF OA 20 0038 169 ADDP4 #BIAS_DIGITS,BIAS,#10, (SP) 
003E 170 ; Correct for signed conversion 
08 AE 13 6& OA 20 OO3SE 171 128 ADDP4S #10, (SP) ,#19,8(SP) ; Sum low and high order parts 
58 00 63 13 56 FB 0044 38 ASHP R6,419,(R3),#0,R8,(R9) =; Scale to destination ~ 
0048 17 : (also clears RO) 
02 1D 0048 174 BVS 13$ ; Br if overflowed 
50 06 0040 175 INCL RO : Indicate success, RO = 1 
5E 14 CO OO4F 176 138 ADDL2 #20,SP ; Deallocate temp space 
05 83 177 RSB 3; Return 
005 178 ; 
0053 179 - END 


BSB ee Se ae ; 
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Symbol table 984 0: d 42 COBRTL.SRCIJCOBCVTQP.MAR; 1 (4) 
BIAS 00000000 R 01 
BIAS_DIGITS = QO00000A 
COBSCVTOP_R9 00000006 RG 01 

— 

;_Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
» 3 , 00000000 < 93 9 0.) NOPIC USR CON ass LCL wore NOEXE NORD NOWRT NOVEC BYTE 
_COBSCODE 00000053 (« 8 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

foe mwa namo mwas nee Eee + 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization — 32 00:00:00.05 00:00:01.01 
Command processing 114 be Be ST 00:00:03.45 
Pass 70 00:00:00. 00:00:01.36 
Symbol table sort 0 —888:8 00:00:00.00 
Pass 2 46 00:00:00.2 00:00:01.40 
Symbol table output 2 00:00:00.00 00:00:00.00 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 268 00:00:00.91 00:00:07.24 


The working set Limit was 750 pages. 
2251 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space ye to hold 3 non-local and 4 local symbols. 
179 source Lines were read in Pass 1, "aie object records in Pass 2. 
ma 


0 pages of virtual memory were used to define cros. 


Macro Library name Macros defined 
“S25SSDUAZ8:(SYSLIBISTARLET.MLB;200 SS 0 
O GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK? /LIS=L1S$:COBCVTQP/0BJ=0BJ$:COBCVTQP MSRC$:COBCVTQP/UPDATE=(ENH$: COBCVTOP) 
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